home *** CD-ROM | disk | FTP | other *** search
/ CyberMycha 2008 January / Cybermycha 1_2008.iso / Data.cab / _BE6761A2898346A9AE50B9748160D1C4 < prev    next >
Encoding:
Text File  |  2004-03-17  |  659 b   |  29 lines
  1.  
  2. regc(0, "TFACTOR")
  3. regc4f( 5, %daycolor_r, %daycolor_g, %daycolor_b, %daycolor_a )
  4. regc4f( 7, %ambient_r, %ambient_g, %ambient_b, %ambient_a )
  5.  
  6. pshader("
  7.  
  8. ;#include <consts.psh>
  9. ps_1_1
  10.  
  11. ;def c5, DAYCOLOR
  12. ;def    c7, AMBIENT
  13.  
  14. tex t0                      ;texture (RGB - color, A<0-127> - Opacity, A<128-255> - Specular Mask)
  15. tex t1                      ;Clouds
  16.  
  17.  
  18. mad_sat        r0,        1-t1.a,        c7,        c7.a    ;Clouds + Ambietn   = Set Clouds
  19.  
  20. mul            r0.rgb,    t0,            r0                ;Tex * Set Clouds   = Final
  21. +mov_x2_sat    r0.a,    t0.a                        ;extractione opacity mask
  22.  
  23. mul            r0.rgb,    r0,            c5                ;Day
  24. +mul        r0.a,    r0.a,        c0.a            ;Opacity Mask * Object blending
  25.  
  26.  
  27. ")
  28.  
  29.